* lisp/url-url-parse.el (url-generic-parse-url): Unquote macro URL argument.

diff --git a/lisp/url/url-parse.el b/lisp/url/url-parse.el
index 6e51b35f5a1ebbe4e997cd6d8761af528500811b..2800caf3043035aa15087789d4e18e113941f4dd 100644 (file)
--- a/lisp/url/url-parse.el
+++ b/lisp/url/url-parse.el
@@ -224,7 +224,7 @@ parses to
                                 fragment nil full))))))
 
 (defmacro url-bit-for-url (method lookfor url)
-  `(let* ((urlobj (url-generic-parse-url url))
+  `(let* ((urlobj (url-generic-parse-url ,url))
           (bit (funcall ,method urlobj))
           (methods (list 'url-recreate-url
                          'url-host))